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RM2UPDDEL RELATIVE SPECIFIC SUPDATE AND S$DELETE 16-SEP-1984 01:06:04 YAX/VMS Macro V04-00 Page 
v04-000 873Eb= 1982 ear RMS .SRCJRM2UPDDEL .MAR; 1 . 3) 


§ p++ 
; Facility: ems32 
Abstract: 


This module provides relative file organization 
specific processing for the Supdate and $delete functions. 


Environment: 
star processor running starlet exec. 

Author: L F Laverdure, creation date: 8-NOV-1977 

Modified By: 


| 
0 v03-013 DASO001 David Solomon 20-Jul-1983 | 
$ Fix BI journaling of SDELETEs (include deleted record). | 
8 v03-012 KPLO003 Peter Lieberwirth 20-Jun-1983 
3 Change some references to jniflg to jnifig2. 
0 v03-011 KPLO002 Peter Lieberwirth 26-May-1983 
3 Changes for new RJR format. | 
| 
0 VO3-010 RASO137 Ron Schaefer 18-Mar-1983 | | 
3 Maybe this time I'LL spell RJRS_DELETE correctly. 
0 v03-009 RASO135 Ron Schaefer 17-Mar-1983 | 
8 Correct problems with RASO132, registers and record sizes. | 
0 v03-008 RASO132 Ron Schaefer ; 16-Mar-1983 
0 Merge S$RMSRDEF into SRJRDEF and revise the interface | 
3 for RM$WRTIJNL for easier use from ISAM. 
0 vO3-007 TMKO0001 Todd M. Katz 27-Dec-1982 | 
Clear the bit IRB$V_FIND_LAST as soon as RMSUPDATE2 is entered. | 
9 V03-006 JWHO150 Jeffrey W. Horn 2-Dec-1982 | 
Fix incorrect branch destination introduced in 
3 WHOIS. 
0 V03-005 KBT0423 Keith B. Thompson 11-Dec-1982 | 
0 Fix broken branch because of ifab getting bigger 
6 v03-004 KPLO001 Peter Lieberwirth 26-0c t-1982 


Correct size of RJR overhead addred to R# for call 
to WRTIJNL. Change RMSR names. 


V03-003 JWwHO112 Jeffrey W. Horn 06-0c t-1982 
Implement new RJR format. ALso put in support for 
RU journaling. 


v03-002 KBT0134 Keith B, Thompson 20-Au = 388 
Reorganize psects and fix revision number in Funo0 1 


vO03-002 JwHOOO! jot trey W. Horn 20-May-1982 
Put in relative SDELETE journaling support. 
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RM2UPDDEL RELATIVE SPECIFIC SUPDATE AND SDELETE 19-36-1388 91:06:06 AX/VMS Macro V04-00 Page ; 
v04~ EP=1984 16:24:14 (2) | 


- RMS.SRCIRM2UPDDEL .MAR; 1 
0 
0 
Q 
0 
0 


v02-013 KPLOOO1 Peter Lieberwirth 22-0c t-1981 
Call alternate lock routines QUERY_HARD and UNLOCK_HARD. 
This maps an owner-held REA lock ifto a RNL error fo prevent 
updates or deletes on REA locked records. (Because REA locks 
on one record can be held by several streams.) 


Fix bug that crashes if Sdelete first operation after S$connect. 
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0 V02-012 REFORMAT Maria del C. Nasr 24-Jul-1980 

p v011 C0S0044 C D Saether 31-MAR-1980 16:35 
fix additional case that v008 missed 

6 v010 CD$0043 C D Saether 20-0C€T-1979 17:00 

8 delete on shared seq file (looks like rel) is illegal iop 

38 v009 JAK0020 J A Krycka 11-SEP-1979 10:00 

444 Remove network code. 

tit v008 CdS0012 C D Saether 26-JUN-1979 17:50 
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RELATIVE SPECIFIC SUPDATE AND SDELETE 


DECLARATIONS 


RM2UPDDEL 


v04-000 
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; Equated Symbols: 
Own Storage: 


; Include Files: 
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RM2UPDDEL RELATIVE SPECIFIC SUPDATE AND S$DELETE 16-SEP-1984 01:06:04 VAX/VMS Macro v04-00 Page 5 
v04-000 RM OPoATES = HIGH LEVEL RELATIVE SUPDATE ~$EP= 1388 93:96:98 YAMS. SRCJRMOUPDDEL MAR: 1 . dy 
148 -SBTTL RMSUPDATE2 = HIGH LEVEL RELATIVE SUPDATE | 
144 34+ 
132 ; RMSUPDATE2 
123 ; This routine performs the hak: nha functions: 
0 198 j 1. calls uged\ te subroutine to access the bucket and do record locking 
3 as require 
0 6 150 ; ¢: calls rasputupd? to move the updated record to the buffer 
000 151 ; . releases access to the bucket cous 1h it to be written unless 
000 13 ; deferred write was specified at open time) and exits rms 
$00 184 ; Calling sequence: 
44 139 3 
44 138 ; entered via case brinch from rm$update at rm$updatel. 
0000 158 ; Input Parameters: 
0000 159; 
0000 160; ri impure area address 
0000 161 ; r10 ifab 
0000 106 : r9 irab addr 
4 163 ; r8 rab addr 
000 164 ; 
0000 165 ; Implicit Inputs: 
0000 166 ; 
0000 167 ; the contents of the rab and related irab and ifab. 
0000 168 ; | 
0000 169 ; Output Parameters: 
0000 170; 
0000 171; r7 thru rl destroyed 
0000 Ze 3 r0 status 
0000 173; 
0000 174 ; Implicit Outputs: 
0000 175; 
0000 176; various fields of the rab are filled in to reflect 
0000 177 ; the status of the operation (see functional spec 
0000 178 ; for details). 
0000 179 ; 
0000 180; the irab is similarly updated. 
0000 181; 
0000 1 g ; Completion Codes: 
0000 183 ; : 
944 ' : 3 standard rms (see functional spec). 
009 186 ; Side Effects: 
8 187 ; 
$ 188 ; none 
000 189 ; 
44 190 ; 
000 191 
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RM2UPDDEL RELATIVE SPECIFIC SUPDATE AND $DELETE 16-SEP-1984 01:06:04 VAX/VMS Macro v04-00 Page 
vet td RM UPDATES = HIGH LEVEL RELATIVE SUPDATE Tey 7 95:98 9 RMS .SRCIRM2UPDDEL .MAR; 1 ° 
8 193 RMSUPDATE2:: 
194 TSTPT UPDATE2 
6 195 CSB WIRBSV_FIND_LAST,(R9) ; Last operation no longer is $FIND 
90 8 A 196 BSBW UPDDLT2 ; access bkt and do locking 
1 0 B 19 BLBC RO,CLEAN 3; get out on error 
10 A& 1 00 1 138 MOVL R1,RABSW_RFA(RB) ; set rfa 
14 AB B4 0014 19 CLRW = RABSW_RFA+4(RB) ; be neat 
5C 4 17 0 CLRL A ; flag to rm$putupd2 for $update 
fre 0 Ri? 1 BSBW RMSPUTUPD2 ; go move the record 
09 57 =—«E9 1 § BLBC R7,CLEAN1 ; get out on error 
48 Ad Be OF 8 RLSXIT: CLRL IRBSL_RP(RI) ; Say no current record 
FFOB' 31 3 é 2 BRW RMSRLS2 3 go release bucket 
09 5 07 ; 
025 08 ; handle error 
0025 09 ; 
0025 10 
57 50 0 0025 11 CLEAN: MOVL RO,R7 ; get status code to r7 
FFDS' 31 0028 212 CLEAN1: BRW RM$CLN2_UPD : go clean up 
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RM2UPDDEL RELATIVE SPECIFIC SUPDATE AND SDEKETE  16-SEP=1984 4 VAX/VMS Macro v04-00 > 
v04=000 RMSDE - EL R 2 94:98:98 ¥ RMU ays 


IC 7 | 
GH LEVEL RELATIVE SDELETE 5-SEP-1984 RMS .SRCIJRM2UPDDEL .MAR; 1 (6) | 
~SBTTL RMSDELETE2 - HIGH LEVEL RELATIVE SDELETE 


j++ 
; RMSDELETE2 


: This routine performs the following functions: 
- calls useat te subroutine to access the bucket and do record locking | 

as require 
Be pets the ‘record deleted flag in the control byte and declares the 
uffer dirty. 
3. releases acres to the bucket genet it to be written unless | 
deferred write was specified at open time) and exits rms | 


Calling sequence: 
entered via case branch from rm$delete at rm$deletel. 
Input Parameters: 

rij impure area address 

ri10 ifab a 

r9 irab oadr 

r8 rab addr 
Implicit Inputs: 

the contents of the rab and related irab and ifab. 
Output Parameters: 


r7 thru ri destroyed 
r0 status 


Implicit Outputs: 
various fields of the rab are filled in to reflect 
the status of the operation (see functional spec 
for details). 
the irab is similarly deleted. 

Completion Codes: 
standard rms (see functional spec). 

Side Effects: 


none 
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RM2UPDDEL RELATIVE SPECIFIC S$UPD AND $DELETE 16-SEP-1984 01:06:04 VAX/VMS Macro v04-00 Page RM: 
v04-000 RM DELETES - HIGH PEVEL ee ne ee Fr DELETE §-8 EP-19 7 or 96 ‘0 RMS.SRCJRM2UPDDEL .MAR; 1 ° uy vO. 
B $6 RMSDELETE2:: 3 
8 6 $TSTPT DELETE2 3 
03 6A 38 1 1 re BBC ba -SEQFIL,(R10),10$ ; continue if not yp eg te gee file 3 
OOAF 1 5 8 Rw ERRIOP ; illegal operation for seq f : 
00 8 0 10$ BSBW UroDL Te 3 escets bucket and do ies : 
57 D 8 71 OVL RO,R 3 copy status code 3 
03 3 ‘ if BLBS RO,JNL 3 ? continue | 3 
FBC’ 31 doce 3 CLEAN2: BRW RMSCLN2_DEL ; ~ clean up ; 
44 75 3 3 
a9e4 8 : Write out journal records, if needed 3 
44 978° : 
OOAO CA 95 0044 8 JNL: TSTB {L586 AL PLSCRTS? 3 journal ing? 3 
0 12 0048 0 BNEQ ; branch if yes. 3 
0090 31 O04A 1 BRW 40$ 3; branch if not. 3 
30 BB 004D Hf 5$: PUSHR #*M<R4,R5> ; save R4,R F 
56 30 A9 00 OO04F | MOVL IRBSL -~JNCBDB(R9) R6 + get ournaling BDB PF 
3 18 A6é 00 0053 4 MOVL BOBSL_ (R6),R ; get gyrnet in buffer 3 
03 A2 02 90 0057 85 MOVB PRORSC ARECORD, RIRSB_ ENTRY_TYPE(R2) ; type : 
0058 86 ; 
34 fi ASSUME RJRS$B_OPER EQ nunte _ORG+1 ; 
0501 8F BO 0058 $3 MOVW #<RIRS DEL ETERS + RJRSC -REL>. ~ 3 
04 A2 OO5F 90 RJR$B_ORG(R2) t file type and operation 3 
40 A248 A9 DO 0061 291 MOVL _IRBS$L~ RPERS) RIRSL seetnei’s aah Felttive rererd number ; 
14 A6 0048 BF BO 0066 29¢ MOV #RIR R$C_RECLEN,BDBS$@_NUMB (ROS ; set journal record Length : 
E 55 7D 006C $9 mMOVQ R5 type and jB8DB arglist 3 
OC OOAO CA 03 €1 O06F 94 BBC #iFBSV Al, IFB$B mascecnlot® 188°” branch if not Al journaling g 
6— 03 9A 0075 95 MOVZBL ait 1, (SP) : indicate Al journal 3 
QOOO0000'EF 16 0078 96 JSB RMSWRTJNL 3 go write record 3 
51 50 €9 Oaee +4 BLBC RO,30$ 3 get out on error 3 
24 OOA2 CA 02 €1 0081 239 10$ BBC #IFBSV_RUP,IFBSB JMLPLEZERNO) . 20$ ; branch if not RUP 3 
52 18 A6- =O «(0087 00 MOVL BDBSL_ADDR(R6) ,R2 get journaling buffer 3 
46 A2 62 A9 BO 0088 £301 MOVW HS SET BS ELS Rsiie R2) ; set cell size 3 
14 A6 62 AD AO Beas 308 ADDW IRB$W_CSIZ(R9) ,BDBSW (R6) _; set journal record size 3 
48 A2 65 62 A9 28 009 0 MOVC shes ene CRY). (RO), TRURST _RIMAGE (R2) 3; copy cell image 3 
54 08 AE 00 009B 304 (SP) ,R4 z" restore BDB addr 3 
6—€ 01 9A OO9F 305 MOVZBL #CJF$_RU, (SP) ; indicate RU Tnorael ; 
OCOO0000'EF 16 Boag 06 RMSWRTJNL ; go write record 3 
27 50~—=—s«E9 BoA ti BLBC RO,30$ ; get out on error : 
21 OOAO CA O02 €1 QOAB % 20$ BBC #IFBSV_BI,IFBSB gMLPLOCAIO) -3 -30$ ; branch if not BI journaling 
5 18 A6 DO 0081 0 MOVL BOBSL VADDRIRE) A get ournal ing buffer 
46 A 62 AI 08 0B5 11 MOVW tt sri SS TPES RELL to RSIZE R2) : set cell size 
14A6 62 A9 A OBA \¢ ADDW ES tH EES 74 oa (R6) get journal record size 
48 A2 65 62 A9 28 OOBF 1 MOVC JPRSN EEE CRY)» CR ) SRURST _RIMAGE(R ) ; copy cell image 
54 08 AE 00 O0C5 14 MOVL (SP) R4 ;"restore BDB addr 
6— 02 9A O0C9 15 MOVZBL #CJF$_BI,(SP) : indicate BI journal 
OOOO0000'EF 16 OS 16 JSB RMSWRTJNL 3 go write record 
5E co 02 + 30$: ADDL2 #8,SP ; discard arglist 
$7 a Ds y? POPR #*M<R4,R5> 3; restore R4,R5 
0d 50 =«éED DA $t BLBC RO, CLEANS 
00DD 322 


| 
| 
MOVL RO,R7 3 copy status code | 
| 
} 
| 
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RM2UPDDEL RELATIVE preci SUPDATE AND soci ert it dt 4 01:06:04 yes Macro V04-00 Page 9 
v04-000 RMSDELETE2 = HIGH LEVEL RELATIVE SDELETE 5-SEP=-1984 16:24:14 (CRMS.SRCIRM2UPDDEL.MAR; 1 (7) 
0 90 DD 3 40$ MOVB O01 CSA_RECIDLCSR_DELETED. 
8 DF 4 (R5) 3; set delete flag 
88 E 5 BISB2 #BDBSM_VAL!BDBSM_DRT,- 
OA AS € § BOBSB_FLGS(R4) ; say buffer dirty 
FF38 31 + BRW RLSXIT ; go release bkt and exit 
0E7 § ; 
0E7 0; handle error 
By 
FF16" 3] 0E7 : ERRIOP: BRW RMSERRIOP : illegal for seq file 
FF13" 31 OQOEA 4 CLEANS: BRW RMSCLN2_DEL ; go clean up 
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E SPECIFIC SUPDATE AND SDELETE 16-SEP-1984 AX/VMS Macro V04-00 Page 19 vd 


- COMMON SUPDATE/SDELETE RELATIV 5-SEP-1984 rate yaar RMS .SRCIRM2UPDDEL .MAR; 1 
Hs -SBTTL UPDDLT2 = COMMON SUPDATE/SDELETE RELATIVE ROUTINE 


a 


*UPDDLT2 


This routine performs the following functions: 
checks that there is a current record. 


accesses the bucket with lock. 
verifies that the record is locked. : 
unlocks the record unless manual locking is specified (rab$v_ulk = 1) 


calling sequence: 
3 bsbb  upddlt2 

; input parameters: 

: as for rm$update2 

: implicit inputs: 

; the fields of the various control blocks, including: 

irb$l_rp record # 

$ irb$l- “curves ba vbn for bucket 

; irbsl. vue off offset to record in bucket 

: K manual locking flag 

; output parameters: 

: r5 record address in buffer 

: r4 bdb address 

$ ri record # 

3 r0 status code 
5 r2_r3,ap destroyed 
; implicit outputs: 

none. 

; completion codes: 

; standard rms. 
side effects: 


may have switched to running at ast level. 


VSVUVUVTVOVOVOVUVUVVUVUVUVVTVUVUVVVVVVVUVVCCTTCTCTCCCC00"C0_"00000"C0"000"00"0€8 


GOOD C900 00 INN NNN NDS DD DDS ODS TUT BB EE PELE 
FWP | OODNOU ES WIN ( O OONAU EWR) 0 OD NOAUE WN OC OONOUE WhO 


AWAAWAAAAAAAAAAAAAAIA ANNAN ANA 


record locking required. if record locked via automatic locking 


} 
B 10 
RM2UPDDEL RELAT ye SPECIFIC SUPDATE AND $DELETE Vg-SEB-1986 1:06:04 AX/VMS Macro V04-00 Page 11 RMS, 
v04-000 UPDD = COMMON SUPDATE/SDELETE RELATIV 5-SEP=-1984 16:24:14 ([CRMS.SRCIRM2UPDDEL.MAR;1 (9) | V04 
UPDDLT2: 
54 D4 CLRL R4 ; initialize r4 
5144 AD 0 MOVL IRB$L_CURVBN(R9) ,R1 3; get current vbn 
|) | BEQL ERRCUR ; error if none 
SCSHFLAGS LOCK ; get lock on bucket | 
52 SE AA 3 MOVZBL IFBSB_BKS(R10) ,R2 ; set up for readbkt2 
gh 0 BSBW RMSREADBKT2_UPD ; access the bucket 
24 E9 BLBC RO,5 ; get out on error 
51 4B A bg MOVL  IRBSL_RP(R9),R1 ; get record # 
1 BEQL ERRCU : error if none 
1A 6A 3 3 BBS #IFBSV_NORECLK, (R10) 05 branch if no lockin 
0969 2D € BBCC  #IRB$VUNLOCK_AP,(R95,30$; clear auto unlock flag 
: if manual lock, don't unlock | 
| 


(irb$v_unlock_rp = 1), unlock the record, giving an error if it was not 
locked. sinced the bucket is still locked, no other user can lock the 
record before the bucket is released. 


if manual locking (irb$v_unlock_rp = 0) need merely check that the 
record is locked. 


Sete Ge Ge Ge Ge Se Ge Se 


Re clear high order rp 
BSBW RMSUNLO 


52 4 ; 
rege" rf CK_HARD ; unlock record 
OF 50 Q BLBC RO, ERRRNL ; branch if not locked 
5 RSB ; all set 
FEES" 30 30$: BSBW RMSQUERY_HARD ; is record locked? 
8039 8F 50 BI CMPW RO,#RMS$_OK_ALK&*XFFFF ; well is it? 
04 12 N ERRRNL ; branch if not 


So 
w 


50$: all set 


: handle errors 


ERRRNL: 
OC AB 000181A0 8F D0 MOVL #RMS$_RNL,RABSL_STV(R8) ; sub error code of record not 
; locked, and fall thru to errcur 
ERRCUR: 
RMSERR CUR 3; no current record 
05 RSB 


Fe ae oe oP oe oe oe ot oF oF ot ot ot ot ot ot ot ot et tt ee ee ee ee ee = 
WIWNPOPOPOPOPONONPONPNON 2 3 SS SS = POCO OOOO OOO OOOO 000000MMaD0 


OOO NA UNE WIN CO OOD NAMES WW OOO NOU EWN | O OONOU SW OOOnNeF OF 


| 

i 

vanilla success 

LEND | 
| 

| 


RM2UPDDEL 
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C 10 
RELATIVE SPECIFIC SUPDATE AND S$DELETE 19736-1382 91:96:06 AX/VMS Macro V04-00 Page 1g 
“SEP=1984 16:24: RMS. SRCIR MUPDDEL .MAR; 1 (9) | 


ELETE2 0000002B RG 
RRIOP eketener 
PUTUPD 


2 eeeeeeee 


RMSD 
sah 4 


=30 
=o 


DW FS ONMWNIWNOM NW OOS OO Bb OU IWS UO SF WOPY 
DDwD 


RMS UERY_HAR PTT TTT it 
RnSREA BRT2 UPD eeeennes 
RMS$R eeekenen 
ded ets gg HARD eeeeeeee 

RMSUPDATE2 00000000 R 
RASURTINE eeeeeees 
RMS$_CUR 
RMS$_OK_ALK 
RMS$_RNC 
ROP 
TPT$L_DELE ekeeeeee 
TPT$L_UPDA by PTT TT iit 
UPODLTS QOOOODED R 


ek © cnc nee3e2e 
— Se SS 
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—o col 
DAD 

oHnnennnnnnnnne 
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DmwawzD 
oooo 
ad ed od od 


z= 
ooo 
ad ax ad 


R 

meet FIND_LAST 
RB$V_UNLOTK_RP 
IRBSW_CSIZ 


yy” 
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" 

mm 

» 

nunn 
Oo + QOCOCOCOCCOOOCOOCOCOSCOCOO OOOO SOO COO O OOOO OOCOOOOOOoOO 

=] 
oo 
st 


JNL 

PIOSA_TRACE 
ABSL_ROP 
RABSL_STV 
ABSWRFA 
RJRSB_ ~ENTRY. TYPE 

$B"OPER 
RJRSC_RECLEN 
RJR$C_RECORD 
ae $C"REL 
RJR$T_RIMAGE 
RIRSW_RSIZE 
RJRS $ DELETE 


RLSX 1 
RMSCLN2_DEL eeeceeee § 6X 0 
RMSCLN2_UPD 1 
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RM2UPDDEL RELATIVE SPECIFIC SUPDATE AND $DELETE 19736-1382 91:96:06 AX/VMS Macro Vv04-00 Page 1 
Psect synopsis -SEP-1984 16:24:14 (CRMS.SRCIRM2UPDDEL.MAR;1 ( 


OW 
~ 
< 
Oo 
> 


fawn oon sane eee oma } 


! ; Psect synopsis ! 


eee nee ewe eounenss 


PSECT name Allocation PSECT No. Attributes | 
80900000 ( ‘ of ( 9. ) NOPIC USR CON ABS LCL NO swe NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS2 0001 ( 309. ) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
00000000 <( 0°) 3°} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE | 
Seeeeee eee ees eeeeneeneen + 
' {Performance indicators ! 
Phase Page faults CPU Time Elapsed Time | 
Initialization 31 08 +80 80-30 80:00:01 .3f 
Command processing 145 00: eee 0:00: t-¢ 
Pass 1 341 00:00:11.63 0:00:24.80 
Symbol table sort 0 BF eR Ot ete 0:00:02.19 
Pass 2 86 00:00:02.2 BRR Re Se 
Symbol table output 10 9 229: 80- 1 00:0 130-67 
Psect synopsis output 1 00:00:00.0 00:00:00.24 | 
Cross-reference output 0 00:00:00.00 bs Sa 
Assembler run totals 616 00:00:16.62 0:00:40.78 


The york ing set Limit was 13550 pages. 

65977 bytes (129 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1290 non-local and 9 Local symbols. 

431 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

26 pages of virtual memory were used to define 25 macros. 
| 
| 


$weeweccececccccecccccceses$ 


Macro Library name Macros defined 


5 SS 22 SDUACB ER ath Seon ee -MLB;1 16 

55$DUA28 18.MLB;1 0 
Betttt hy $ Syei BISTARLET. MLB; 2 5 
TOTALS (all libraries) 21 


1424 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RM2UPDDEL/OBJ=OBJ$:RM2UPDDEL MSRC$:RM2UPDDEL/UPDATE=(ENH$:RM2UPDDEL) +EXECML$/L1IB+LIB$:RMS/LIB 


